home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Casino• / •Las Vegas• / Pai Gow •••• / PAI / PAI.rsrc / CODE_2.txt < prev    next >
Text File  |  1987-09-14  |  5KB  |  86 lines
  1. # near model CODE resource
  2. # jump table entries: 48-48 (1 of them)
  3. export_6:
  4. 00000000  7201                     moveq.l    D1, 0x01
  5. 00000002  6100 00FE                bsr        +0x100 /* 00000102 */
  6. 00000006  2F01                     move.l     -[A7], D1
  7. 00000008  2F3C 4452 5652           move.l     -[A7], 0x44525652 /* 'DRVR' */
  8. 0000000E  A94D                     syscall    AppendResMenu/AddResMenu
  9. 00000010  7202                     moveq.l    D1, 0x02
  10. 00000012  6100 00EE                bsr        +0xF0 /* 00000102 */
  11. 00000016  2B41 FED2                move.l     [A5 - 0x12E], D1
  12. 0000001A  7203                     moveq.l    D1, 0x03
  13. 0000001C  6100 00E4                bsr        +0xE6 /* 00000102 */
  14. 00000020  2B41 FED6                move.l     [A5 - 0x12A], D1
  15. 00000024  7204                     moveq.l    D1, 0x04
  16. 00000026  6100 00DA                bsr        +0xDC /* 00000102 */
  17. 0000002A  2B41 FEDA                move.l     [A5 - 0x126], D1
  18. 0000002E  7205                     moveq.l    D1, 0x05
  19. 00000030  6100 00D0                bsr        +0xD2 /* 00000102 */
  20. 00000034  2B41 FEDE                move.l     [A5 - 0x122], D1
  21. 00000038  7206                     moveq.l    D1, 0x06
  22. 0000003A  6100 00C6                bsr        +0xC8 /* 00000102 */
  23. 0000003E  2B41 FEE2                move.l     [A5 - 0x11E], D1
  24. 00000042  7207                     moveq.l    D1, 0x07
  25. 00000044  6100 00BC                bsr        +0xBE /* 00000102 */
  26. 00000048  A937                     syscall    DrawMenuBar
  27. 0000004A  426D FEFE                clr.w      [A5 - 0x102]
  28. 0000004E  422D FEF8                clr.b      [A5 - 0x108]
  29. 00000052  1B7C 0003 FEF9           move.b     [A5 - 0x107], 0x3
  30. 00000058  1B7C 000F FEFB           move.b     [A5 - 0x105], 0xF
  31. 0000005E  422D FEFC                clr.b      [A5 - 0x104]
  32. 00000062  422D FEFD                clr.b      [A5 - 0x103]
  33. 00000066  42AD FEC2                clr.l      [A5 - 0x13E]
  34. 0000006A  426D FE88                clr.w      [A5 - 0x178]
  35. 0000006E  3B7C 0001 FCC4           move.w     [A5 - 0x33C], 0x1
  36. 00000074  2B7C 0001 0001 FD44      move.l     [A5 - 0x2BC], 0x10001
  37. 0000007C  3B7C 0001 FD48           move.w     [A5 - 0x2B8], 0x1
  38. 00000082  426D FCC6                clr.w      [A5 - 0x33A]
  39. 00000086  41ED FD04                lea.l      A0, [A5 - 0x2FC]
  40. 0000008A  43ED FD24                lea.l      A1, [A5 - 0x2DC]
  41. 0000008E  7007                     moveq.l    D0, 0x07
  42. label00000090:
  43. 00000090  20FC 0000 0C80           move.l     [A0]+, 0xC80
  44. 00000096  4259                     clr.w      [A1]+
  45. 00000098  51C8 FFF6                dbf        D0, -0xC /* 00000090 */
  46. 0000009C  3B7C 00A0 FD24           move.w     [A5 - 0x2DC], 0xA0
  47. 000000A2  41ED FCA4                lea.l      A0, [A5 - 0x35C]
  48. 000000A6  43ED FCCC                lea.l      A1, [A5 - 0x334]
  49. 000000AA  2B7C 1515 1515 FCC8      move.l     [A5 - 0x338], 0x15151515
  50. 000000B2  303C 0014                move.w     D0, 0x14
  51. label000000B6:
  52. 000000B6  1180 0000                move.b     [A0 + D0.w], D0
  53. 000000BA  13BC 0015 0000           move.b     [A1 + D0.w], 0x15
  54. 000000C0  51C8 FFF4                dbf        D0, -0xE /* 000000B6 */
  55. 000000C4  303C 000A                move.w     D0, 0xA /* '\n' */
  56. label000000C8:
  57. 000000C8  1180 0015                move.b     [A0 + D0.w + 0x15], D0
  58. 000000CC  13BC 0015 0015           move.b     [A1 + D0.w + 0x15], 0x15
  59. 000000D2  51C8 FFF4                dbf        D0, -0xE /* 000000C8 */
  60. 000000D6  2055                     movea.l    A0, [A5]
  61. 000000D8  2178 0156 FF82           move.l     [A0 - 0x7E], [0x00000156 /* RndSeed */]
  62. 000000DE  598F                     subq.l     A7, 4
  63. 000000E0  A8D8                     syscall    NewRgn
  64. 000000E2  2B5F FD50                move.l     [A5 - 0x2B0], [A7]+
  65. 000000E6  598F                     subq.l     A7, 4
  66. 000000E8  A8D8                     syscall    NewRgn
  67. 000000EA  2B5F FD54                move.l     [A5 - 0x2AC], [A7]+
  68. 000000EE  203C 0000 FFFF           move.l     D0, 0xFFFF
  69. 000000F4  A032                     syscall    FlushEvents
  70. 000000F6  A850                     syscall    InitCursor
  71. 000000F8  4267                     clr.w      -[A7]
  72. 000000FA  A938                     syscall    HiliteMenu
  73. 000000FC  49FA FF02                lea.l      A4, [PC - 0xFE /* 00000000, value 0x72016100 */]
  74. 00000100  4E75                     rts
  75. fn00000102:
  76. 00000102  598F                     subq.l     A7, 4
  77. 00000104  3F01                     move.w     -[A7], D1
  78. 00000106  A9BF                     syscall    GetRMenu
  79. 00000108  221F                     move.l     D1, [A7]+
  80. 0000010A  2F01                     move.l     -[A7], D1
  81. 0000010C  2F01                     move.l     -[A7], D1
  82. 0000010E  4267                     clr.w      -[A7]
  83. 00000110  A935                     syscall    InsertMenu
  84. 00000112  221F                     move.l     D1, [A7]+
  85. 00000114  4E75                     rts
  86.